home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / GWU Demos / chop.adb next >
Text File  |  1993-02-03  |  253b  |  21 lines
  1. --::::::::::
  2. --chop.adb
  3. --::::::::::
  4. PACKAGE BODY Chop IS
  5.  
  6.   TASK BODY Stick IS
  7.  
  8.   BEGIN
  9.     
  10.     LOOP
  11.       SELECT
  12.         ACCEPT Pick_Up;
  13.         ACCEPT Put_Down;
  14.       OR
  15.         TERMINATE;
  16.       END SELECT;
  17.     END LOOP;
  18.  
  19.   END Stick;
  20.  
  21. END Chop;